home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Review 34
/
Creative-Review-CD-ROM-34.iso
/
pc
/
foo
/
foos.dir
/
00024_Script_move video =
< prev
next >
Wrap
Text File
|
1998-01-23
|
1KB
|
42 lines
on mouseEnter me
--checkWindows
set the member of sprite the spriteNum of me ="posnHi"
set the cursor of sprite the spriteNum of me =[the number of member "finger", the number of member "fingermask"]
set the foreColor of sprite 33=251
end
on mouseDown me
--checkWindows
global present_duration, nowHowloud
set the soundLevel=0
set the cursor of sprite the spriteNum of me =[the number of member "hand", the number of member "handmask"]
repeat while the stilldown
set the locH of sprite the currentSpriteNum=the mouseH
set plaice=float((the locH of sprite 57-the left of sprite 31)*1000/(the right of sprite 31-the left of sprite 31))/1000
set the movieTime of sprite 30=plaice*present_duration
updateStage
end repeat
set the soundLevel=nowHowloud
--script to go in mouseUp with startTimer check to make slider play/pause button
--if the mouseV<the top of sprite the currentSpriteNum then
-- set the movieRate of sprite 30=0
-- set the member of sprite 33=the number of member "play"
-- else if the mouseV>the bottom of sprite the currentSpriteNum then
-- set the movieRate of sprite 30=1
-- set the member of sprite 33=the number of member "pause"
-- end if
end
on mouseLeave me
--checkWindows
set the member of sprite the spriteNum of me ="posn"
set the cursor of sprite the spriteNum of me =0
set the foreColor of sprite 33=43
end